home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / info-service / gopher / Unix / GopherTools / gee.shar / win.pl < prev   
Encoding:
Perl Script  |  1993-07-11  |  3.5 KB  |  127 lines
  1. # wjm@feenix.metronet.com
  2. #
  3. package win;
  4. # Window array has the following elements
  5. # (all coordinates are w.r.t. (1,1) = top left hand corner of screen
  6. #
  7. # @window=( 
  8. # llx,        # the lower-left x coordinate for the window  
  9. # lly,        # the lower-left y coordinate of the window
  10. # urx,        # the upper-right x coordinate of the window
  11. # ury,        # the upper right y coordinate of the window
  12. # nattr,      # the normal attribute for the window
  13. # hattr,      # the highlight attribute for the window
  14. # title       # current title text
  15. # footer      # current footer text
  16. # )
  17. # 
  18. # Associated with the window, at any given time is the current text
  19. # body.  we use another array.
  20. # 
  21. # @text=
  22. # line1,   # first line of text to be placed beneath header
  23. # line2,   # second line of text to be placed beneath footer
  24. # ...,
  25. # lineN,   # nth line of text, with n not to exceed lly - ury - 2
  26. # )
  27.  
  28. sub clear{                       # clear the complete window area
  29. local($llx,$lly,$urx,$ury,$attr) = @_;
  30. local($width,$height) = ($urx-$llx,$lly-$ury);
  31. eval <<'EOLoop';
  32. print "\e"."["."$attr"."m";      # set background attribute, usually black
  33. for($i = $ury;$i<=$lly;$i++){      
  34.   print "\e"."["."$i".";"."$llx"."f";  
  35.   print " " x $width;
  36. }
  37. EOLoop
  38. 1;
  39. }
  40.  
  41. sub refresh{                     # print the current buffer in window
  42. local(@buffer) = splice(@_,0,shift);
  43. local($llx,$lly,$urx,$ury,$attr,$nattr) = splice(@_,0,shift);
  44. local($i,$j,$tmp,$tmp2,$string);
  45. local($width,$height) = ($urx-$llx-1,$lly-$ury);
  46. $llx+=2;
  47. eval <<'EOLoop';
  48. print "\e"."["."$attr"."m";      
  49. for($i = $ury+1,$j=0;$i<$lly;$i++,$j++){      
  50.   #if($i==($lly-1)){if(defined($buffer[$j+1])){$j-=($i-1);$i=($ury+1);}}
  51.   $buffer[$j] =~ s/\t/   /g;
  52.   $tmp = $width - length($buffer[$j]);
  53.   print "\e"."["."$i".";"."$llx"."H";
  54.   if ($tmp < 2 )
  55.     {$string =substr($buffer[$j],0,$width-3);
  56.      print $string;}
  57.   else { 
  58.      print $buffer[$j];
  59.      print " " x ($tmp-2); }
  60.   }
  61. EOLoop
  62. }
  63.  
  64. sub title{         # highlight the top line, text is arg
  65. local($llx,$lly,$urx,$ury,$oattr,$nattr,$text) = @_; 
  66. local($width) = ($urx-$llx);
  67. $fill = $width - length($text);
  68. print "\e"."["."$ury".";"."$llx"."f";
  69. print "\e"."["."$nattr"."m";     
  70. print $text;                  
  71. print " " x $fill;
  72. }
  73.  
  74. sub footer{         # print a footer on the window with text
  75. local($llx,$lly,$urx,$ury,$oattr,$nattr,$junk,$text) = @_; 
  76. local($width) = ($urx-$llx);
  77. $fill = $width - length($text);
  78. print "\e"."["."$lly".";"."$llx"."f";
  79. print "\e"."["."$nattr"."m";     
  80. print $text;                  
  81. print " " x $fill;
  82. }
  83.  
  84. sub border{                   
  85. local($llx,$lly,$urx,$ury,$oattr,$nattr) = @_;
  86. local($width) = ($urx-$llx);
  87. local($i,$j);
  88. $ury+=1;
  89. eval <<'EOLoop';
  90. for($i = $ury;$i<$lly;$i++){      
  91.   print "\e"."["."$i".";"."$llx"."H";
  92.   print "\e"."["."$nattr"."m";      
  93.   print " ";                
  94.   print "\e"."["."$oattr"."m";      
  95.   print " " x ($width-2);
  96.   print "\e"."["."$nattr"."m";      
  97.   print " ";                
  98. }
  99. EOLoop
  100. 1;
  101. }
  102.  
  103.  
  104. sub highlight_field{                # highlight a field in current buffer
  105. local($row,$col,$field,$attr) = @_;
  106. print "\e"."["."$row".";"."$col"."f";
  107. print "\e"."["."$attr"."m";      
  108. print $field;                  
  109. }
  110.  
  111. sub getdata{                # get data from the keyboard      
  112. local($col,$row,$prompt,$attr) = @_;
  113. local($tmp)=length($prompt)+1;
  114. local($tmp2) = $tmp +$col;
  115. print "\e"."["."$row".";"."$col"."H";
  116. print "\e"."["."$attr"."m";      
  117. print $prompt;                  
  118. print "\e"."["."0"."m";      
  119. print "\e"."["."$row".";"."$tmp2"."H";
  120. $tmp = <STDIN>;
  121. }
  122. 1;
  123.  
  124. # bILL  -  wjm@decster.uta.edu
  125.  
  126.  
  127.